home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / sdk / patternOffset.pl < prev    next >
Perl Script  |  2006-06-30  |  260b  |  13 lines
  1. #!/usr/bin/perl
  2. use strict;
  3. use lib 'lib';
  4. use lib '../lib';
  5. use Pex::Text;
  6.  
  7. die "0x01020304 length" if(!@ARGV);
  8.  
  9. my $addr = shift;
  10. my $length = @ARGV ? shift : 200;
  11.  
  12. print join(', ', Pex::Text::PatternOffset(Pex::Text::PatternCreate($length), $addr)) . "\n";
  13.